﻿Imports AccesoDatos

Public Class MultiCargasSociales

#Region "David Murillo"

    ''' <summary>
    ''' Actualiza las cargas sociales
    ''' </summary>
    ''' <param name="p_CCSS">Porcentaje CCSS</param>
    ''' <param name="p_porcTrabajador">Porcentaje Trabajador</param>
    ''' <param name="p_otrosPat">Otros porcentajes a patrono</param>
    ''' <param name="p_otrosTrab">Otros porcentajes a trabajador</param>
    ''' <remarks>Creado por: David Murillo, Creado: 12/06/2010, Modificado: 30/06/2010</remarks>
    Public Shared Sub actualizar(ByVal p_CCSS As Double, ByVal p_porcTrabajador As Double, ByVal p_otrosPat As Double, ByVal p_otrosTrab As Double)

        Dim pars(3) As Parametro
        Dim sql As String


        sql = "Update t_configuracion set ccss_patrono = p_CCSS, ccss_trabajador = p_porcTrabajador, otros_patrono = p_otrosPat, otros_trabajador = p_otrosTrab"

        pars(0) = New Parametro("p_CCSS", p_CCSS)
        pars(1) = New Parametro("p_porcTrabajador", p_porcTrabajador)
        pars(2) = New Parametro("p_otrosPat", p_otrosPat)
        pars(3) = New Parametro("p_otrosTrab", p_otrosTrab)

        g_access.ejecutarSQL(sql, pars)

    End Sub

    ''' <summary>
    ''' Busca las cargas sociales
    ''' </summary>
    ''' <returns>Lista con las cargas sociales</returns>
    ''' <remarks>Creado por: David Murillo, Creado: 12/06/2010, Modificado: 30/06/2010</remarks>
    Public Shared Function buscar() As List(Of CargasSociales)

        Dim sql As String
        Dim listaCargas As New List(Of CargasSociales)
        Dim drCargas As IDataReader

        sql = "select ccss_patrono, ccss_trabajador, otros_patrono, otros_trabajador from t_configuracion"

        drCargas = g_access.ejecutarQuery(sql)

        While drCargas.Read
            listaCargas.Add(cargarCargasSociales(drCargas))
        End While

        Return listaCargas
    End Function

    ''' <summary>
    ''' Instancia las cargas sociales
    ''' </summary>
    ''' <param name="p_dr">IDataReader con datos</param>
    ''' <returns>Un objeto cargaSocial</returns>
    ''' <remarks>Creado por: David Murillo, Creado: 12/06/2010, Modificado: 30/06/2010</remarks>
    Private Shared Function cargarCargasSociales(ByVal p_dr As IDataReader) As CargasSociales
        Dim cargaSocial As CargasSociales
        With p_dr
            cargaSocial = New CargasSociales(CDbl(.Item("ccss_patrono")), CDbl(.Item("ccss_trabajador")), CDbl(.Item("otros_patrono")), CDbl(.Item("otros_trabajador")))
        End With
        Return cargaSocial
    End Function
#End Region
End Class
